home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / iso9660 / mail / mh / contrib / queuemh / scripts / plum / assign.pl next >
Encoding:
Text File  |  1992-11-08  |  185 b   |  13 lines
  1. # MODULE assign.pl
  2.  
  3. sub ptize {
  4.     local($msg);
  5.     $_ = &prompt("Assign to?");
  6.     &commit_deletions;
  7.     &system("assign $_",$Current_Folder);
  8.     &read_folder();
  9.     &redraw;
  10. }
  11.  
  12. 1;
  13.